REPL PAT_FILCOD WITH A->PAT_FILCOD,PAT_NAME WITH A->PAT_NAME
REPL PAT_F_NAME WITH A->PAT_F_NAME,PAT_M_INIT  WITH A->PAT_M_INIT
REPL PAT_DOB WITH A->PAT_DOB,PAT_NATIO WITH A->PAT_NATIO
REPL PAT_SEX  WITH A->PAT_SEX,BLOOD_GRP WITH A->BLOOD_GRP
REPL BLOOD_RHE WITH A->BLOOD_RHE,HOM_ADD WITH A->HOM_ADD
REPL HOM_CITY  WITH A->HOM_CITY,HOM_COUNT WITH A->HOM_COUNT
REPL HOM_TEL WITH A->HOM_TEL
REPL JOB_POSIT  WITH A->JOB_POSIT,JOB_CORP WITH A->JOB_CORP
REPL JOB_CRPCOD WITH A->JOB_CRPCOD,JOB_ADD1   WITH A->JOB_ADD1
REPL JOB_ADD2   WITH A->JOB_ADD2,JOB_CITY   WITH A->JOB_CITY
REPL JOB_COUNT  WITH A->JOB_COUNT,JOB_TEL1   WITH A->JOB_TEL1
REPL HEALTHLINE WITH A->HEALTHLINE,HL_PERIOD  WITH A->HL_PERIOD
REPL HL_START   WITH A->HL_START,HL_END     WITH A->HL_END
REPL HL_DENT    WITH A->HL_DENT,HL_FEE     WITH A->HL_FEE
REPL AEA_MEMBER WITH A->AEA_MEMBER,AEA_PROGR  WITH A->AEA_PROGR
REPL AEA_ENDATE WITH A->AEA_ENDATE,AEASOS_PER WITH A->AEASOS_PER
REPL AEASOS_FAM WITH A->AEASOS_FAM
REPL FAM_PERCOD WITH A->FAM_PERCOD,PAT_CODCRP WITH A->PAT_CODCRP
REPL PAT_CODCRE  WITH A->PAT_CODCRE,PAT_CODDAT  WITH A->PAT_CODDAT
REPL PAT_CODTYP  WITH A->PAT_CODTYP
return
